﻿Imports EstoqueDAL
Public Class PecaFRM

    Private Sub rbfaltantes_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbfaltantes.CheckedChanged
        If rbfaltantes.Checked Then gerarelatrio("Relatório de Peças em Falta", "{vw_EstPeca.pec_qtde}<=0")

    End Sub

    Private Sub rbpecasminimas_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbpecasminimas.CheckedChanged
        If rbpecasminimas.Checked Then gerarelatrio("Relatório de Peças com Quantidade Abaixo da Mínima", "{vw_EstPeca.pec_qtde}<={vw_EstPeca.pec_qtdemin}")
    End Sub

    Private Sub RbAtivo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbAtivo.CheckedChanged
        If RbAtivo.Checked Then gerarelatrio("Relatório de Peças Ativas", "{vw_EstPeca.sta_codigo}=1")
    End Sub

    Private Sub RBInativo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RBInativo.CheckedChanged
        If RBInativo.Checked Then gerarelatrio("Relatório de Peças Inativas", "{vw_EstPeca.sta_codigo}=2")
    End Sub

    Private Sub RBDisponiveis_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RBDisponiveis.CheckedChanged
        If RBDisponiveis.Checked Then gerarelatrio("Relatório de Peças Disponíveis", "{vw_EstPeca.pec_qtde}>0")
    End Sub

    Private Sub RBTodas_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RBTodas.CheckedChanged
        If (RBTodas.Checked) Then gerarelatrio("Relatório com Todas as Peças", "")
    End Sub

#Region "Relatorio"
    Public Sub gerarelatrio(titulo As String, formula As String)
        Try
            Dim frmrecursos As New RelatoriosFRM
            Dim rpt As New PecaREL
            Try
                rpt.SetDatabaseLogon(usuarios, senha)
                rpt.SetParameterValue(0, titulo)
                rpt.RecordSelectionFormula = formula
                frmrecursos.CrystalReportViewer1.ShowGroupTreeButton = False
                frmrecursos.CrystalReportViewer1.ReportSource = rpt
                frmrecursos.ShowDialog()
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            frmrecursos.Dispose()
            rpt = Nothing
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Finally

        End Try
    End Sub
#End Region



End Class